home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / MacEgg1.0b4 / For your Egg / tcl.mac.egg < prev   
Text File  |  1996-02-15  |  7KB  |  230 lines
  1. ###
  2. #
  3. #    tcl.ctalk - moonwolf June 1995  v0.95
  4. #  modified by EspReSso for use with Mac->Egg
  5. ###
  6.  
  7. bind dcc - cs do_csay
  8. bind dcc - ca do_cact
  9. bind dcc - ct do_ctalk
  10. bind dcc - cw do_cwho
  11. bind dcc - cstat do_cstat
  12. bind dcc m covert do_covert
  13. bind dcc o cm do_cmsg
  14. bind dcc o cma do_cma
  15. bind dcc m msg_ok do_msg_ok
  16. bind msg o cm do_chanmsg
  17.  
  18. proc do_chanmsg {nick uhost hand arg} {
  19.     global channel msg_ok chanchan botnick
  20.     if {$msg_ok == 0} {
  21.         putmsg $nick "Sorry, C-MSG is disabled at the moment."
  22.         return 0
  23.     }
  24.     set target [lindex $arg 0]
  25.     set message [lrange $arg 1 end]
  26.     if {($message == "" || $arg == "")} {
  27.         putmsg $nick "Usage: /msg $botnick cm <nick> <message>"
  28.         return 0
  29.     }
  30.     if {(![getidx $target])} {
  31.         putmsg $nick "$target is not on $botnick right now."
  32.         return 0
  33.     }
  34.     set target2 [getidx $target]
  35.     if {([getchan $target2] != $chanchan)} {
  36.         putmsg $nick "$target is not in C-MSG right now."
  37.         return 0
  38.     }
  39.     if {![onchan $nick]} {
  40.         putmsg $nick "You must be on $channel to use C-MSG."
  41.         return 0
  42.     }
  43.     putdcc $target2 "***\[C-MSG: $nick \($uhost\)\]: $message"
  44.     return 0
  45. }
  46.  
  47. proc do_msg_ok {hand idx arg} {
  48.     global channel msg_ok
  49.     if {$msg_ok == 0} {
  50.         set msg_ok 1
  51.         putdcc $idx "C-TALK: Message system now enabled.  Type \".msg_ok\" to disable."
  52.         return 0
  53.     }
  54.     set msg_ok 0
  55.     putdcc $idx "C-TALK: Message system now disabled.  Type \".msg_ok\" to enable."
  56.     return 0
  57. }
  58.  
  59. proc do_covert {hand idx arg} {
  60.     global channel covert
  61.     if {$covert == 0} {
  62.         set covert 1
  63.         putdcc $idx "C-TALK: Covert mode now engaged.  Type \".covert\" to disengage"
  64.         return 0
  65.     }
  66.     putdcc $idx "C-TALK: Covert mode now disengaged.  Type \".covert\" to engage"
  67.     set covert 0
  68.     return 0
  69. }
  70.  
  71. proc do_ctalk {hand idx arg} {
  72.     global channel chanchan botnick covert
  73.     if {$arg == "on"} {
  74.         if {[getchan $idx] != $chanchan} {
  75.             set origchan [getchan $idx]
  76.             setchan $idx $chanchan
  77.             dccputchan $origchan "Mac->Egg: $hand has snuck into $channel"
  78.             dccputchan $chanchan "Mac->Egg: $hand has snuck into the channel."
  79.         }
  80.         if {$covert == 0} {
  81.             putchan "\[Mac->Egg:\] $hand has snuck into $channel"
  82.         }
  83.         dccsimul $idx "console +pkj"
  84.         return 1
  85.     }
  86.     if {$arg == "off"} {
  87.         if {[getchan $idx] == $chanchan} {
  88.             setchan $idx 0
  89.             dccputchan 0 "Mac->Egg: $hand has snuck out of $channel"
  90.             dccputchan $chanchan "Mac->Egg: $hand has snuck out of the channel."
  91.         }
  92.         dccsimul $idx "console -pkj"
  93.         if {$covert == 0} {
  94.             putchan "\[Mac->Egg:\] $hand has snuck out of $channel"
  95.         }
  96.         return 1
  97.     }
  98.     putdcc $idx "==========  C-TALK Help  =========="
  99.     putdcc $idx "C-TALK will allow you to interact with the users on $channel."
  100.     putdcc $idx "When switched on, C-TALK will take you to channel $chanchan on $botnick,"
  101.     putdcc $idx "and when switched off will return you to channel 0 on $botnick."
  102.     putdcc $idx "You -must- be on channel $chanchan to use CS, CA, CM and CMA."
  103.     putdcc $idx "All other C-TALK commands will work anywhere, and do not need"
  104.     putdcc $idx "You to have C-TALK turned on to be used."
  105.     putdcc $idx "Commands available:"
  106.     putdcc $idx "-------------------"
  107.     putdcc $idx ".ct         -    This screen"
  108.     putdcc $idx ".ct on        -    Switch C-TALK on."
  109.     putdcc $idx ".ct off        -    Switch C-TALK off."
  110.     putdcc $idx ".cs <string>    -    Say <string> on $channel."
  111.     putdcc $idx ".ca <string>    -    Do <string> on $channel (Action)."
  112.     putdcc $idx ".cm <nick> <string>-    Send <string> to <nick>"
  113.     putdcc $idx ".cma <nick> <string>-    Send <string> to <nick> as an action."
  114.     putdcc $idx ".cw        -    Show a list of users on $channel"
  115.     putdcc $idx ".cstat        -    Show a bunch of useless stats on CSPY."
  116.     if {[matchattr $hand o]} {
  117.         putdcc $idx ".covert        -    Toggle whether C-Talk announces"
  118.         putdcc $idx "                Users monitoring $channel or not."
  119.         putdcc $idx ".msg_ok        -     Toggle whether users of C-Talk may msg other users on channel."
  120.     }
  121.     putdcc $idx "============================================"
  122.     return 0
  123. }
  124.  
  125. proc do_cmsg {hand idx arg} {
  126.     global channel msg_ok chanchan
  127.     if {$msg_ok == 0} {
  128.         putdcc $idx "Sorry, C-MSG is disabled at the moment."
  129.         return 0
  130.     }
  131.     if {[getchan $idx] != $chanchan} {
  132.         putdcc $idx "You may only use CM in .chat $chanchan"
  133.         return 0
  134.     }
  135.     set target [lindex $arg 0]
  136.     set message [lrange $arg 1 end]
  137.     if {($message == "" || $arg == "")} {
  138.         putdcc $idx "Usage: .cm <nick> <message>"
  139.         return 0
  140.     }
  141.     if {![onchan $target]} {
  142.         putdcc $idx "$target is not on $channel right now."
  143.         return 0
  144.     }
  145.     putserv "PRIVMSG $target :\[Mac->Egg_MSG: $hand\] $message"
  146.     return 1
  147. }
  148. proc do_cma {hand idx arg} {
  149.     global channel msg_ok chanchan
  150.     if {$msg_ok == 0} {
  151.         putdcc $idx "Sorry, Mac->Egg_MSG is disabled at the moment."
  152.         return 0
  153.     }
  154.     if {[getchan $idx] != $chanchan} {
  155.         putdcc $idx "You may only use CMA in .chat $chanchan"
  156.         return 0
  157.     }
  158.     set target [lindex $arg 0]
  159.     set message [lrange $arg 1 end]
  160.     if {($message == "" || $arg == "")} {
  161.         putdcc $idx "Usage: .ca <nick> <message>"
  162.         return 0
  163.     }
  164.     if {![onchan $target]} {
  165.         putdcc $idx "$target is not on $channel right now."
  166.         return 0
  167.     }
  168.     putserv "PRIVMSG $target :\[Mac->Egg_MSG:\] $hand $message"
  169.     return 1
  170. }
  171.  
  172. proc do_csay {hand idx arg} {
  173.     global channel chanchan
  174.     if {[getchan $idx] != $chanchan} {
  175.         putdcc $idx "You may only use CS in .chat $chanchan"
  176.         return 0
  177.     }
  178.     if {$arg == ""} {
  179.         putdcc $idx "Usage: .cs <text>"
  180.         return 0
  181.     }
  182.     putserv "PRIVMSG $channel :\[Mac->Egg: $hand\] $arg"
  183.     dccputchan $chanchan "Mac->Egg: \[$hand\]: $arg"
  184.     return 1
  185. }
  186.  
  187. proc do_cact {hand idx arg} {
  188.     global channel chanchan
  189.     if {[getchan $idx] != $chanchan} {
  190.         putdcc $idx "You may only use CA in .chat $chanchan"
  191.         return 0
  192.     }
  193.     if {$arg == ""} {
  194.         putdcc $idx "Usage: .ca <text>"
  195.         return 0
  196.     }
  197.     putserv "PRIVMSG $channel :\[Mac->Egg:\] $hand $arg"
  198.     dccputchan $chanchan "Mac->Egg: $hand $arg"
  199.     return 1
  200. }
  201.  
  202. proc do_cwho {hand idx arg} {
  203.     global channel
  204.     putdcc $idx [chanlist]
  205.     return 1
  206. }
  207.  
  208. proc do_cstat {hand idx arg} {
  209.     global channel chanchan covert
  210.     set chanusers [chanlist]
  211.     putdcc $idx "=============  C-TALK Status  ============="
  212.     putdcc $idx "C-TALK: IRC Channel     -    $channel"
  213.     putdcc $idx "C-TALK: Bot Channel    -    $chanchan"
  214.     if {($covert == 1 && [matchattr $hand o])} {
  215.         putdcc $idx "C-TALK: Covert Mode is Enabled"
  216.     } else {
  217.         putdcc $idx "C-TALK: Covert Mode is Disabled"
  218.     }
  219.     if {($msg_ok == 1 && [matchattr $hand o])} {
  220.         putdcc $idx "C-MSG: C-MSG is Enabled"
  221.     } else {
  222.         putdcc $idx "C-MSG: C-MSG is Disabled"
  223.     }
  224.     putdcc $idx "C-TALK: Users currently on $channel:"
  225.     putdcc $idx "$chanusers"
  226.     putdcc $idx "C-TALK: For C-Talk Command Help, type \".ct\""
  227.     putdcc $idx "======================================================"
  228.     return 1
  229. }
  230.